CAAPlanetPerihelionAphelion_MercuryK <-
function(Year){
.Call("CAAPlanetPerihelionAphelion_MercuryK", Year)
}
